home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FishMarket 1.0
/
FishMarket v1.0.iso
/
fishies
/
501-525
/
disk_503
/
pcq
/
pcq12a.lzh
/
Examples
/
WhereFrom.p
< prev
next >
Wrap
Text File
|
1991-04-17
|
437b
|
26 lines
Program WhereFrom;
{$I "Include:Libraries/DOS.i"}
type
FileRec = record
Handle : FileHandle;
Next : ^FileRec;
Buffer : Address;
Current : Address;
Last : Address;
Max : Address;
RecSize : Integer;
Interactive : Boolean;
EOF : Boolean;
Access : Short;
end;
begin
if IsInteractive(FileRec(Input).Handle) then
writeln('Input is coming from the console.')
else
writeln('Input is comming from a file.');
end.